Software of the Month Club 1999 July/Software of the Month - Ultimate Collection Shareware 263.iso/pc/Xtras/Behavior Library.cst/00033_Script_UI Toggle Button

Text File | 1997-11-17 | 4KB | 99 lines

-- Setting   Toggle Button


-- behavior library version 1.1
-- Behaves like a 'toggle', will be set in ON state and OFF state by clicking.
-- also functions through lingo by handling message 'Toggle' and 'SetValue {0|1}',
-- for example if this behavior was assigned to sprite 5, use
-- sendsprite 5, #Toggle


property  NormalMember, NormalMemberNum, ToggleMember, ImageCastLib
property  Setting
property tracking

on mouseDown me
  set the tracking of me = TRUE
  toggle me
end

on mouseEnter me
  if the tracking of me then
    toggle me
  end if
end

on mouseLeave me
  if the tracking of me then
    toggle me
  end if
end

on mouseup me
  if the tracking of me then
    set the tracking of me = false
  end if
end

on mouseupOutside me
  if the tracking of me then
    set the tracking of me = false
  end if
end


on Toggle me
  setValue( me, NOT the Setting of me )
end

on SetValue me, v_me
  if v_me = 0 then  -- setting "OFF"
    set the member of sprite the spriteNum of me = the normalMember of me
    set the Setting of me = 0
  else              -- setting "ON"
    set the member of sprite the spriteNum of me = the toggleMember of me
    set the Setting of me = 1
  end if
  updateStage
end


on beginSprite me
  set s = the spriteNum of me
  set the normalMemberNum of me = the memberNum of sprite s
  set the imageCastLib of me = the number of castLib                                  the castLibNum of sprite s
  set the normalMember of me = member the normalMemberNum of me      of castLib the imageCastLib of me
  set the toggleMember of me = member the toggleMemberNum of me       of castLib the imageCastLib of me
  SetValue( me, the Setting of me )

end

on getPropertyDescriptionList
  if the currentspritenum = 0 then
    set memdefault = 0
  else
    set memref = the member of sprite the currentspritenum
    set castlibnum = the castlibnum of memref
    set memdefault = member (the membernum of member memref + 1) of castlib castlibnum
  end if

  set p_list = [      #toggleMemberNum: [ #comment: "Toggle Image:",                           #format: #graphic,                          #default:  memdefault ],              #Setting: [ #comment: "Initially Toggled:",                           #format: #boolean,                          #default:  FALSE ]                  ]
  return p_list
end

on SetToggleValue me, v_me
  -- duplicate of SetValue, used by radioButton behavior

  if v_me = 0 then  -- setting "OFF"
    set the member of sprite the spriteNum of me = the normalMember of me
    set the Setting of me = 0
  else              -- setting "ON"
    set the member of sprite the spriteNum of me = the toggleMember of me
    set the Setting of me = 1
  end if
  updateStage
end

on getBehaviorDescription
  return "Makes a sprite work as a toggle button with automatic highlighting and mouse tracking. The behavior responds when clicked, or when the SetToggleValue or Toggle messages are receieved. Use the the UI Radio Group behavior to control toggle buttons in radio button groups." & RETURN & "PARAMETERS:" & RETURN & "ò Toggle Image - Choose the cast member to display when the button is toggled." & RETURN & "ò Initially Toggled - Turn this option to make the button toggled when it first appears." & RETURN & "MESSAGES:"& RETURN & "ò SetToggleValue {TRUE or FALSE} - Sets the toggle button."& RETURN & "ò Toggle - Switches the toggle button state."
end